Option Explicit
Sub C_Sample043()
    Dim myWd     As Window
    Dim myWState As Long
    Dim myLeft   As Double
    Dim myTop    As Double
    Set myWd = ActiveWindow
    With myWd
        myWState = .WindowState
        .WindowState = xlNormal
        myLeft = .Left
        myTop = .Top
        .Left = 0							'm]w
        .Top = 0
        If MsgBox("mwgܧFC" _
        & vbCrLf & "zn٭즨쥻AܡH" _
        , vbInformation + vbYesNo) = vbNo Then Exit Sub
        .Left = myLeft
        .Top = myTop
        .WindowState = myWState
    End With
    Set myWd = Nothing						'
End Sub
